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k 4 



7 ^ 



4 



7 



4 
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A N 
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7 
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*=4 4==* 4=fc ^ 
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4 
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V 
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7 
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4=4 *=* 

N17 \T7 NK W W r 



^K 



4-k 
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Disclaimer 



Although this program was tested by its author prior to submission, 
no warranty, express or implied, is made by the author, 1620 USERS 
Group, or IBM as to the accuracy and functioning of the program and 
related program material and no responsibility is assumed by the 
author, 1620 USERS Group, or IBM in connection therewith. 



o 



Operating Instructions for Tic-Tac-Toe 



Set all machim? check switches to "program 1 * and the 
four program switches to "off". 

Clear Memory. A suggested method is to press INSTANT 
STOP, RESET, and INSERT. Then type 310000400003 and 
the R-S key. When core is cleared, press RESET. Place 
object deck in card reader, then press LOAD on the 
card reader. After the object deck, including sub- 
routines, is loaded, the words LOAD DATA will be typed. 
The data is included at the end of the object deck, so 
by pushing START on the console and READER START on 
the card reader, the data will be read in. When the 
data is loaded, instructions for playing the game will 
be typed. 



C 




©- 



ENTER SOU RCE PROGRAM , PUSH START 



O 



o 



o 



o 



08300 C" 
583.00 _C 
(58300 C~ 
S8300 C 

58T0B — 

58300 
08312 
58612 
08768 
58924 



" f I C-t AC-TOE" D E M0 N S T^ATT OTP ~ " """ ~ ' ~~~ 

T H E ARRAY N(1,J ) IS THE AR RAY OF POSITIONS TO BE CHEC K ED AFTER 
EACH OPPONENT PLAY AND BEFORT^EACH MACHINE PLAY. 

ARRAY NW IN(l t J) IS THE POSITION TO PLAY TO WIN. 

DTFTETTS ION N (9,8) , K(9), NW IN (9,8 J 

DO 3 1 = 1,9 ^ 

read 5 M r,i j ,nt r72")7>UT7j)~,irn^)7W( i ,5) ,^17^(177^0787 

READ 4. NWIN( 1,1) ,NWIN( 1 ,2; ,NWIN( 1,3) jNWIN( 1 ,4) 



" READ 4!NwiNii;i7,Nirm 

3 CONTINUE 



5T960 4 F0RMAT( 12, 12, 12, 12) 

08998 5 FORMAT ( 12. 12, 12, 12, 12, 12 , 12, 12) 

,09056 1"""D0'""16 1^" ' 

09068 6 K(l)=0 
09152 NC0D1-6 
* NC0D2=»0 



09200 
JI9224. 

09456 
09480 

09526 

09550" 

09574 

09574 

09574 

096^"4~ 

09678 

09788 

09796 

59844 

59856 

0*9972" 

T0056 

T0 140 

T0264 

TO 3 48 

TO 36 8 

10436" 

T0504 

T0560 

T0584 

r 0608~ 

T0616 



PRINT 10 

10 FORMAT (38HALL RIGHT, HERE WE GO. YO U PL AY FIRST.) 

I f PRINT 12 " " " 

12 FORMAT (42HTYPE THE POSIT IO N NUMBER YOU WAN T TO MA RK.) 

14 ACCEPT 1"57i " ~ " 

ISAV=I 



1 ^- nyRMAT ( M j : 

NSAV=0 _ 

NSAVT^O ~ " ~ ~ - - - 
C THE PROGRAM ASSUMES 1 TO BE THE MARK OF THE OPPONENT 
C THE MARK OF "THE MACHI NE " IS "27 " "' ~ " " ~ 
IF(K(I)) 17. 20,17 



"ITTFTOirTB" 

18 FORMAT (43HSTUP ID. THAT PLACE HAS ALREADY BEEN PLAYED.) 

GO TO 11 "' " ~ ~ ' " 
20 K(l)=1 

23 DO 32 J=1,8" " ' • 

IF(N(I,J))50,50,25 



C 



~25~NP=WT7T)" 

IF(K(MP)-1)32,26,32 

26 I F(NWI N( "I , J ) ) 27,32 ,27 ~~ 

27 NP«NWIN(I,J) 

I F (SENSE SWI TCH 1 ) 270,275 
270 1 F( 1-3) 275 ,271 ,275 




HERE 



10720 
1D728 
SB20 
~856 

ToOo'f 



■ 271"TF(T=6) 275,272,275" 

272 IF(K(4)) 275,273,275 

273 K(4)=2 
NP=4 

" ' GO" T0~40 

275 IF(K(NP ))29,28,29 

""28~NS7\\FNP 

GO TO 32 
"29 IF (K (MP PTT 174-2732- 
3°. CONTINUE 



here dctotJ 



GO TO 50 



COMPUTER 
TECHNOLOGY 



10868 hi FOMATU6HI PLAY POSITION 12, »2M YOWTMtf.) 
i|lo COSO \l 



i|lo coso i*k 

LI Oli ^3 EORMTiSl ^ 



awl //.'y_£mw^ 

»U62 440 FORMAT ( 1 7H I F NOT, TYPE A 2.) 
T1320 ACCEPT 15, 1ST P 

IF(ISTP-1)85,1.4'i1 



TlM2 441 PRINT 442 O 
T Jit 3 6 4 42 FORMAT ( 25 HHA H A. YOU ARE A QUITTER.) 
T1510 PRINT 443 



T 1 5 3 ^ 443 FORMAT (3OHBUT THANKS FOR THE FUN ANYWAY.) 



i 618 GO to 85 

T 1.6 26 l45._PRJ.N06.. 




4J__2 

T'~Al 609 ! F(K( 2) ) 612,612,604 _ 

H~ 612 K(2) = 2 " "~" ~ " " - -- --- ~ - q 

"Pi 260 HP ••--?. 



O 



"46 FORMAT ( 3 7HS0RRY PAL. I GUESS YOU DID YOUR BEST.) O 

_ P RINT 47 

Tl 772 57" FORMAT (~4"1 HYOU REALLY DlDNT HAVE A CHANCE, YOU KNOW.) 

T1878 GO TO '430 _ 

f 1886 50 DO 520 L= 1 ,9 ' " ~ ~" 

T1898 KNT-0 

1 1922 I F(K(LJ)520 .501 320 ' " ' ' O 

T2002 501 _D0 510_ >1J} 

Tzoft " hTn ri.,JT7 520,520,503 

T2130 503 NP*N(L,J) _ O 

T2214 IF(K<NP)-1) 510,505,510 

T2306 505 NP~NWIN(L,J) _ _ 

T2390 IF (K(NP )~1 } 506,506,510 O 

T2482_ _ 506_KNT=KNT+1 . 

T2518 iF(2-k¥T) 512,512,510 

]6 ,510 CONTINUE . O 

so 512 NSAVI-l. Iff Of /fV'_ /Af 

T2654 GO TO 51 „ // , "Vj -Uji O 

T2662 5_20 m CONTJNUE __ ft// C#5<?5 0* fntJ 

T2698 51 DO" 60" 1=1 ,9 ' ~ T . ^ T* 

T2710 IF(K(I))52.60,52 Mfe IS _/_ 

12790 " 52 IF(K( D--2)60,53,60 7 '"/ 

T2882 53 DO 59 J=K8 ' 

T289'i I F ( N ( I , J ) ) 60,60,5^ "" O 

f 30 10 54 MP"- M ( I , _ _ „ _ _ 

1*3094 ~7'F (K OTP") -27!T9 ;53759 ' ~ " 

T3186 55 IF(ilWIM( I ,J))59,59,56 O 

T3302 56 NP=NWIN( I , J) """ 

13386 iF(K(MP))59,57,59 

13466 57 K(NP)=2 " O 

T3514 PRINT 58. NP 

T3538 58T01TMAT (1 61T 1 _ FrAT~PCTSrrT lUfJ r2", ^71 1 TTTAT" MAKES ME WINNER. ) 

T366O GO TO 45 O 

T3668 59 CONTINUE " 

T3704 60 CONTINUE 

T3740' 601 IF(NSAV) 605,605,600 " _ - " O 

13796 600 IF(K(NSAV)) 599,599,605 

1 3876 59_r _ ~K"CNS"AT)^. ~ " 

T3924 NP-NSAV © 

T3948 " GO TO 40 " " ~" " 

T3956 605 IF(NCODI) 607.607.21 

T4012 607 I T(NC0D2)'604, 604,609 " ~~ ~ ~ 6 

T4068 21 I F ( K ( 8 ) ) 22,22,604 J? 

mi 24 22~R"C8'F2 : 

T4148 NP«8 O 

T41__2 GO" TO '40 " " " " ~" 



14284 

m 

1^328 
T4408 
T4420 



GO TO 40 

60'4 DO 625_L«1_,9 

KNT-0 ' 

»X(KXL).)_625J^625_ 
606^ DO 615 J-1 ,8 

|F(N(l .J ) )62 5. 62 5. 608 

l(L J) 



608 np*n(l,j! 

IFCKCNP)^) 625,610^6,25 
610 NP=NWIN(L,J} " ~ 

IF(K(NP)) 625,611,615 _ 
61' 1 KNT»KNt+1 

IF (2-KNT) 617.617.615 



,14620 
5^712 
T4796 
T4876 
2 

WsM 
T50I6 
T5024 
[5072 
[5096 
15104 



O 



T5W 

T5196 
A 5 276 
T5324 
T5348 
T5356 
T5'424~ 
1*5480 
15504 
T5528 
T5552 
T5560 
T5628 
T5696 



T5800 

T5024 

f583T 

T5900 

T5956 

15900 

f6004 

1T6012 

|T6068~" 

if 609 2 

iT61 16 

16124 

'T6180 

(T6204 

!T6Z28~ 

iT6236 

•T625 2 

IT6316 

'T6340 

M6348 

|T6404"- 

[T6428 

IT645 2 

|T6460 

: 164 7 2 

'T655 2 

IT6576" 
T6624 
16632 

iIl . , . 
'T6802 



"615 CONT I NUE 
GO TO 625 
617 K(L)«2 
NP«=L 
" GO T O 40 
625 CONTINUE 



IF(NSAVI) 61 ,61 ,626 

626 IF(K(NSAV1)) 61,627,61 

627 K(NSAV1 )«"2 
NP=NSAV1 
GO TO 40 

61 IF(1SAV-1)633.630.633 



WTF(K(5)) 631. 
631 K(5)-2 

NP«5 

NCOD1-1 

GO TO 40 
63 3 1 F( 1S AV-3 



IFnSAV-TjCTO.w^w.w-T. 
.636 IF(K(5)) 638,638^650 
638 K(5)«2 " ~ " " 
NP=»5 

MC0D2=1 ' 
GO TO 40 



W0~TFTTS"AV-9) 650,636,650 
650 IF(K(5)) 64,62,64 _ 
62 NP=b 
K(5)«2 

GO TO 40 "~ 
64 1F(K( 0) 67,65,67 

- 65~W="1 ^ — 

K(1)-2 

GO TO 40 ~" 

67 IF(K(3)) 70,68,70 

68 NP=3 """" ~ 
K(3)-2 

G0'TO~40 

70 !F(K(7))73,71,73 

71 NP=7 
K(7)-2 
GO TO 40 

73 IF(K(9)) 76,74,76 



74~NP=9 
K(9)-2 
GO TO 40 

76 DO 80 J=2,8,2 
IF(K(J))80,77,80 

77 NP=J 

-K(T)=2 — 

GO TO 40 

80 CONT I NUE " ~ • — ~ 

PRINT 81 

8 1 FORMAT (43HC00KS"TfKE~7^ 
GO TO 430 



o 
o 

o 


o 
* 



T6810 85 PAUSE 

f |22 GO TO 1 , : 

W30 END 

Prog sw 1 onfor symbol table, push start : O 

SW 1 OFF TO IGNORE SUBROUTINES. PUSH START 

1620 FORTRAN SUBR7 9/30/61 

; O 



o 



o 



o 




